home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / mono / access.dxr / 00025.ls < prev    next >
Encoding:
Text File  |  1996-07-06  |  501 b   |  26 lines
  1. on mouseDown
  2.   global columnnum, ctime, leftclist
  3.   if columnnum < 5 then
  4.     rightcursorchange(1)
  5.     set columnnum to columnnum + 1
  6.     columnset(columnnum)
  7.     updateStage()
  8.   else
  9.     cursor(-1)
  10.     initcursor()
  11.     go("start")
  12.   end if
  13.   repeat while the stillDown
  14.     if columnnum < 5 then
  15.       rightcursorchange(1)
  16.       set columnnum to columnnum + 1
  17.       columnset(columnnum)
  18.       updateStage()
  19.       next repeat
  20.     end if
  21.     cursor(-1)
  22.     initcursor()
  23.     go("start")
  24.   end repeat
  25. end
  26.